home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
A-COMAL Series
/
(k)aar.d64
/
proc.mandelbrot
< prev
next >
Wrap
Text File
|
2009-01-31
|
321b
|
13 lines
0010 //
0020 ╨╥╧├ MANDELBROT
0030 AZ2:=0; BZ2:=0
0040 ╫╚╔╠┼ COUNT<IT ┴╬─ SIZEZ<4 ─╧
0050 COUNT:+1
0060 ╔╞ COUNT>=IT ╘╚┼╬ DOT
0070 AD:=AZ2-BZ2; BD:=2*AZ*BZ; AZ:=AD+AC
0080 BZ:=BD+BC; AZ2:=AZ*AZ; BZ2:=BZ*BZ
0090 SIZEZ:=AZ2+BZ2
0100 ╔╞ SIZEZ>=4 ╘╚┼╬ DOT
0110 ┼╬─╫╚╔╠┼
0120 ┼╬─╨╥╧├ MANDELBROT